100 REM RELATIVELY SPEAKING
200 JO=56320
300 GOSUB20600 
400 :
500 FORX=1TO5:READU$(X):NEXT
600 DATA "YEARS","DAYS","HOURS","MINUTES","SECONDS"
700 :
800 FORX=1TO6:READL$(X):NEXT
900 DATA "INCHES","FEET","MILES","CENTIMETERS","METERS","KILOMETERS"
1000 :
1100 C=300000:FL=0
1200 PRINT"[147]";:GOSUB21200:PT=1
1300 PRINTSPC(7)"    - [212]IME TRANSFORMATIONS":PRINT
1400 PRINTSPC(7)"    - [204]ENGTH TRANSFORMATIONS":PRINT
1500 PRINTSPC(7)"    - [205]ASS TRANSFORMATIONS":PRINT
1600 PRINTSPC(7)"    - [205]ASS-ENERGY RELATIONSHIPS":PRINT
1700 PRINTSPC(7)"    - [210]ETURN TO [204]OADSTAR"
1800 PRINT"  [205]OVE THE ARROW WITH THE CURSOR KEYS"
1900 PRINT" [208]RESS [[210][197][212][213][210][206]] TO MAKE YOUR SELECTION."
2000 PRINT"    [[202]OYSTICK IN [208]ORT 2 ALSO WORKS]"
2100 PRINT"";:FORX=1TOPT:PRINT"";:NEXT:PRINTSPC(8)"==>[157][157][157]";
2200 IFPEEK(198)=0ANDPEEK(JO)=127THEN2200
2300 GETAG$:J%=PEEK(JO):PRINT"   [144]"
2400 IFAG$=""ORJ%=125THENPT=PT+1
2500 IFAG$="[145]"ORJ%=126THENPT=PT-1
2600 IFAG$=CHR$(13)ORJ%=111THEN3100
2700 IFPT<1THENPT=5
2800 IFPT>5THENPT=1
2900 GOTO2100 
3000 :
3100 ON PT GOTO3200 ,6700,10000,11800,26900
3200 PRINT
3300 GOSUB15900
3400 GOSUB13900:PRINT"[147]";:GOSUB21200
3500 PRINT"  [215]ILL THE DURATION OF THE TRIP BE IN:":PT=1:F$="YEARS"
3600 PRINT""SPC(12)"    [217]EARS"
3700 PRINTSPC(12)"    [196]AYS"
3800 PRINTSPC(12)"    [200]OURS"
3900 PRINTSPC(12)"    [205]INUTES"
4000 PRINTSPC(12)"    [211]ECONDS"
4100 PRINT"";:FORX=1TOPT:PRINT"";:NEXT
4200 PRINTSPC(12)"==>[157][157][157]";
4300 IFPEEK(198)=0ANDPEEK(JO)=127THEN4300
4400 GETAG$:J%=PEEK(JO):PRINT"   "
4500 IFAG$=""ORJ%=125THENPT=PT+1
4600 IFAG$="[145]"ORJ%=126THENPT=PT-1
4700 IFAG$=CHR$(13)ORJ%=111THEN5100
4800 IFPT<1THENPT=5
4900 IFPT>5THENPT=1
5000 GOTO4100 
5100 F$=U$(PT)
5200 PRINT"      [200]OW LONG WILL THE TRIP LAST"
5300 PRINTSPC(10);"==>";:ML=6:GOSUB19200:T=VAL(IN$):GOSUB18000
5400 REM CALCULATIONS AND OUTPUT FOR TIME TRANSFORMATIONS
5500 PRINT"[147]";:GOSUB21200
5600 PRINT"   [215]HEN YOU RETURN FROM YOUR TRIP THE"
5700 F1$="OUTSIDE WORLD WILL BE":F2$=STR$((1/X)*T)+" "+F$
5800 PRINTSPC(20-LEN(F1$)/2)F1$
5900 PRINTSPC(20-LEN(F2$)/2)F2$
6000 PRINTSPC(16)"OLDER."
6100 REM CONTINUATION/DISCONTINUATION OF PROGRAM
6200 PRINT"   [208]RESS A KEY TO RETURN TO THE MENU"
6300 IFPEEK(198)=0ANDPEEK(JO)<>111THEN6300
6400 POKE198,0
6500 GOTO1200
6600 END
6700 PRINT
6800 GOSUB15900
6900 GOSUB13900
7000 PRINT"[147]";:GOSUB21200
7100 PRINT"         [215]HAT UNITS WILL BE USED"
7200 PT=1:OF=0:IFS$="M"THENOF=3
7300 PRINT""SPC(10)"      "L$(1+OF)
7400 PRINTSPC(10)"      "L$(2+OF)
7500 PRINTSPC(10)"      "L$(3+OF)
7600 PRINT"";:FORX=1TOPT:PRINT"";:NEXT
7700 PRINTSPC(10)"==>"
7800 IFPEEK(198)=0ANDPEEK(JO)=127THEN7800
7900 GETAG$:J%=PEEK(JO)
8000 IFAG$=""ORJ%=125THENPT=PT+1
8100 IFAG$="[145]"ORJ%=126THENPT=PT-1
8200 IFAG$=CHR$(13)ORJ%=111THEN8600
8300 IFPT<1THENPT=3
8400 IFPT>3THENPT=1
8500 GOTO7300 
8600 U$=L$(PT+OF):GOSUB18000
8700 PRINT"    [215]HAT IS THE LENGTH OF THE OBJECT"
8800 PRINTSPC(10)"==>";:ML=6:GOSUB19200
8900 L=VAL(IN$)
9000 REM CALCULATIONS AND OUTPUT FOR LENGTH TRANSFORMATIONS
9100 NL=L-(X*L)
9200 W$="[212]HE OBJECT WILL BE"+STR$(NL):W2$=U$+" SHORTER."
9300 PRINT"[147]";:GOSUB21200:PRINT
9400 PRINTSPC(20-LEN(W$)/2)W$
9500 PRINTSPC(20-LEN(W2$)/2)W2$
9600 PRINT"      [212]HIS PUTS ITS NEW LENGTH AT:"
9700 W$=STR$(L-NL)+" "+U$+"."
9800 PRINTSPC(20-LEN(W$)/2)W$:GOTO6200
9900 PRINT
10000 GOSUB15900
10100 GOSUB13900:GOSUB23300
10200 W$="IN "+U$
10300 GOSUB18000
10400 PRINT"[147]";:GOSUB21200 
10500 PRINT"     [215]HAT IS THE MASS OF THE OBJECT":PRINTSPC(20-LEN(W$)/2)W$
10600 PRINT"          <[206]UMBER VALUE ONLY>":PRINTSPC(11)"==>";:ML=6:GOSUB19200
10700 M=VAL(IN$)
10800 REM CALCULATIONS AND OUTPUT FOR MASS TRANSFORMATIONS
10900 W$="[212]HE OBJECT'S MASS HAS INCREASED BY":NM=(1/X)*M-M
11000 M$=STR$(NM)+" "+U$+"."
11100 PRINT"[147]";:GOSUB21200:PRINT""SPC(20-LEN(W$)/2)W$
11200 PRINTSPC(20-LEN(M$)/2)M$
11300 PRINT"       [212]HIS PUTS ITS NEW MASS AT:"
11400 M$=STR$(NM+M)+" "+U$+"."
11500 PRINTSPC(20-LEN(M$)/2)M$
11600 GOTO6200
11700 :
11800 GOSUB15900
11900 GOSUB23300
12000 PRINT"[147]";:GOSUB21200:PRINT"           [215]HAT IS THE MASS"
12100 W$="IN "+U$:PRINTSPC(20-LEN(W$)/2)W$
12200 PRINTSPC(11)"==>";:ML=6:GOSUB19200:M=VAL(IN$):M=M*DI
12300 IFS$="E"THENM=M/2.3
12400 REM CALCULATIONS AND OUTPUT FOR MASS-ENERGY RELATIONSHIP
12500 E=M*(300000^2):E=4190*E:PRINT
12600 PRINT"[147]  [201]F THE MASS OF THE OBJECT WERE TO BE"
12700 PRINT"     TOTALLY CONVERTED INTO ENERGY, "
12800 W$=STR$(E)+" CALORIES":HC=INT(E/1.1804E13):HC$=STR$(HC)
12850 Z=LEN(HC$):LL=0:IFZ>8THENLL=1
12900 EF=0:FORX=1TOZ:IFMID$(HC$,X,1)="E"THENEF=1
13000 NEXTX
13005 IFLL=1ANDEF=0THENHC$=LEFT$(HC$,2)+"."+MID$(HC$,3,1)+"+E"+MID$(STR$(Z-2),2)
13100 IFLL=1ANDEF=1THENHC$=LEFT$(HC$,2)+RIGHT$(HC$,4)
13200 HC$=HC$+" TIMES THE ENERGY"
13300 IFLEN(HC$)<25THENHC$=HC$+" ":GOTO13300
13400 PRINTSPC(20-LEN(W$)/2)W$
13500 PRINTSPC(11)"WOULD BE RELEASED."
13600 GOSUB28100 
13700 GOTO6200
13800 REM VELOCITY-TIME-UNITS CONVERSION SUBROUTINE
13900 PRINT"[147]";:GOSUB21200
14000 PRINT"         [215]ILL THE VELOCITY BE:"
14100 T1$="S":F=1:ME$="[205]ILES":IFS$="M"THENME$="[203]ILOMETERS":PT=1
14200 PRINT""SPC(7)"      "ME$" PER SECOND"
14300 PRINT""SPC(7)"      "ME$" PER HOUR"
14400 PRINT"";:FORX=1TOPT:PRINT"";:NEXT
14500 PRINTSPC(9)"==>[157][157][157]";
14600 IFPEEK(198)=0ANDPEEK(JO)=127THEN14600
14700 GETAG$:J%=PEEK(JO):PRINT"   "
14800 IFAG$=""ORJ%=125THENPT=PT+1
14900 IFAG$="[145]"ORJ%=126THENPT=PT-1
15000 IFAG$=CHR$(13)ORJ%=111THEN15400
15100 IFPT<1THENPT=2
15200 IFPT>2THENPT=1
15300 GOTO14400
15400 IFPT=2THENT1$="H":F=3600
15500 PRINT""
15600 PRINTSPC(9)"[215]HAT IS THE VELOCITY?":PRINTSPC(12)"-->";
15700 ML=6:GOSUB19200:V=VAL(IN$):V=V/F:GOSUB18000 
15800 RETURN
15900 PRINT"[147]";:GOSUB21200
16000 PRINT
16100 PRINT"   [215]HICH MEASUREMENT SYSTEM WOULD YOU":PRINTSPC(13)"LIKE TO USE?"
16200 S$="E":C=186000:PT=1
16300 PRINT""SPC(10)"     [197]NGLISH"
16400 PRINT""SPC(10)"     [205]ETRIC"
16500 PRINT"";:FORX=1TOPT:PRINT"";:NEXT
16600 PRINTSPC(10)"==>[157][157][157]";
16700 IFPEEK(198)=0ANDPEEK(JO)=127THEN16700
16800 GETAG$:J%=PEEK(JO):PRINT"   "
16900 IFAG$=""ORJ%=125THENPT=PT+1
17000 IFAG$="[145]"ORJ%=126THENPT=PT-1
17100 IFAG$=CHR$(13)ORJ%=111THEN17500
17200 IFPT<1THENPT=2
17300 IFPT>2THENPT=1
17400 GOTO16500 
17500 IFPT=2THENS$="M":C=300000
17600 PRINT""
17700 REM UNITS CHOICE AND COVERSION SUBROUTINE
17800 M=1:L=1:IFS$="E"THENC=186000:IFFL=1THENM=M*2.3
17900 RETURN
18000 IF(V>186000ANDS$="E")OR(V>300000ANDS$="M")THENGOTO18400
18100 IFV=186000ANDS$="E"THENV=185999
18200 IFV=300000ANDS$="M"THENV=299999
18300 X=(1-(V/C)^2)^.5:RETURN
18400 PRINT:PRINT"[147]    [206]O OBJECT CAN SURPASS THE SPEED"
18500 PRINTSPC(14)"OF LIGHT.
18800 [153][166]7)"(null)SE VELOCITIES LESS THAN"
18900 M$[178]"300,000"[170]" KILOMETERS/SECOND."
19000 [139]S$[178]"E"[167]M$[178]" 186,000"[170]" FEET/SECOND."
19002 [153][166]19[171][195](M$)[173]2);
19100 [153]M$:[137]6200
19200 [143] INPUT
19300 [143] PASS MAX LENGTH IN ML
19400 CU$[178]"TOCMD":IN$[178]""
19500 [153]CU$;:[151]198,0:[146]198,1:[161]A$:[153]" CMD";
19600 [139]A$[178][199](13)[167]20300
19700 [139]A$[179][177][199](20)[167]19900
19800 AW[178][195](IN$):[139]AW[177]0[167]IN$[178][200](IN$,AW[171]1):[153]"CMD CMD";:[137]19500
19900 [139]A$[177][178]"0"[175]A$[179][178]"9"[167]20100
20000 [137]19500
20100 [139][195](IN$)[179]ML[167]IN$[178]IN$[170]A$:[153]A$;
20200 [137]19500 
20300 [139][195](IN$)[178]0[167]19500
20400 [142]
20500 :
20600 [153]"LOAD":[151]53281,1:[151]53280,5
20700 [153]"         OR`````````````````^"
20800 [153]"         }lOADSTAR PRESENTS}STOP "
20900 [153]"         /`````````````````EXPSTOP "
21000 [153]"                             "
21100 [153]:[141]21200:[137]22400
21200 [153]
21300 [153]"    CONT                              "
21400 [153]"                              CONT    STOP "
21500 [153]"    CONT      (null)ELATIVELY (null)PEAKING  CONT   STOP "
21600 [153]"    CONT   CLOSE                      CLOSECONTCLOSE  STOP "
21700 [153]"    CONT   CLOSE                       CONT   STOP "
21800 [153]"    CONT                              STOP "
21900 [153]"    CONT         wRITTEN BY           STOP "
22000 [153]"    CONT     aLEXANDER pROTOPAPAS     STOP "
22100 [153]"    CONT                              STOP "
22200 [153]"                                   "
22300 [153]:[142]
22400 [153]"         CONTCLOSE    (C) 1987"
22500 [153]"CONTCLOSE"
22600 [153]"CLOSE         OR```````````````^"
22700 [153]"CONTCLOSE         } press any key }STOP "
22800 [153]"          /```````````````EXPSTOPCLOSE"
22900 [153]"                            "
23000 [153]"";:[151]198,0
23100 [139][194](198)[178]0[175][194](JO)[179][177]111[167]23100
23200 [161]AG$:[142]
23300 [143] SELECT MASS
23400 [153]"LOAD";:[141]21200
23500 [153]""[166]5)"(null)ELECT THE UNIT FOR YOUR MASS:"
23600 [139]S$[178]"E"[167]25300
23700 PT[178]1:U$[178]"KILOGRAMS":DI[178]1
23800 [153]""[166]11)"    (null)ILOGRAMS"
23900 [153][166]11)"    (null)ETRIC TONS"
24000 [153]""[166]10);:[129]X[178]1[164]PT:[153]"";:[130]
24100 [153]"==>CMDCMDCMD";
24200 [139][194](198)[178]0[175][194](JO)[178]127[167]24200
24300 [161]AG$:J%[178][194](JO):[153]"   "
24400 [139]AG$[178]""[176]J%[178]125[167]PT[178]PT[170]1
24500 [139]AG$[178]"ON"[176]J%[178]126[167]PT[178]PT[171]1
24600 [139]AG$[178][199](13)[176]J%[178]111[167]25100
24700 [139]PT[179]1[167]PT[178]2
24800 [139]PT[177]2[167]PT[178]1
24900 [137]24000 
25000 :
25100 [139]PT[178]2[167]U$[178]"METRIC TONS":DI[178]1000
25200 [137]26800 
25300 PT[178]1:U$[178]"POUNDS":DI[178]1
25400 [153]""[166]11)"    (null)OUNDS"
25500 [153][166]11)"    (null)ONS"
25600 [153]""[166]10);:[129]X[178]1[164]PT:[153]"";:[130]
25700 [153]"==>CMDCMDCMD";
25800 [139][194](198)[178]0[175][194](JO)[178]127[167]25800
25900 [161]AG$:J%[178][194](JO):[153]"   "
26000 [139]AG$[178]""[176]J%[178]125[167]PT[178]PT[170]1
26100 [139]AG$[178]"ON"[176]J%[178]126[167]PT[178]PT[171]1
26200 [139]AG$[178][199](13)[176]J%[178]111[167]26700
26300 [139]PT[179]1[167]PT[178]2
26400 [139]PT[177]2[167]PT[178]1
26500 [137]25600 
26600 :
26700 [139]PT[178]2[167]U$[178]"TONS":DI[178]2000
26800 [142]
26900 [143] RETURN
27000 [153]"LOAD";:[141]21200
27100 [153]"  ATNRE YOU SURE YOU WANT TO QUIT [(null)/(null)]?"
27200 [151]198,0:[146]198,1:[161]AG$
27300 [139]AG$[178]"Y"[176]AG$[178]"(null)"[167]27600
27400 [139]AG$[178]"N"[176]AG$[178]"(null)"[167]1200
27500 [137]27200
27600 [151]56,160:[156]
27700 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
27800 [139]ER[179][177]63[167][128]
27900 [147]"HELLO CONNECT",8
28000 :
28100 [153]""
28200 [153]" CONT                                     "
28300 [153]"                                    CONT  STOP "
28400 [153]" CONT  (null)OTE: (null)NE CALORIE CAN RAISE THE   CONT STOP "
28500 [153]" CONT  TEMPERATURE OF ONE GRAM OF WATER  CONT STOP "
28600 [153]" CONT  BY ONE DEGREE CELSIUS.            CONT STOP "
28700 [153]" CONT                                    CONT STOP "
28800 [153]" CONT                                    CONT STOP "
28900 [153]" CONT                                     STOP "
29000 [153]" CONT                                   CONT  STOP "
29100 [153]" CONT  (null)OTE 2: (null)HE ENERGY RELEASED IN    CONT STOP "
29200 [153]" CONT  THIS EXPERIMENT IS APPROXIMATELY  CONT STOP "
29300 [153]" CONT  EQUAL TO";HC$;"CLOSECONT STOP "
29400 [153]" CONT  RELEASED ON LEFT$IROSHIMA, MID$APAN.     CONT STOP "
29500 [153]" CONT                                    CONT STOP "
29600 [153]" CONT                                    CONT STOP "
29700 [153]" CONT                                     STOP "
29800 [153]"                                       "
29900 [153]"";
30000 [142]